Floral Tapestry/Floral Tapestry.iso/viewer.app/cards.xml

Text File | 1994-06-07 | 28KB | 420 lines

card_2994.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<card>
    <id>2994</id>
    <filler1>0</filler1>
    <cantDelete> <false /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <owner>2625</owner>
    <link rel="stylesheet" type="text/css" href="stylesheet_3096.css" />
    <part>
        <id>1</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>206</left>
            <top>382</top>
            <right>234</right>
            <bottom>404</bottom>
        </rect>
        <style>opaque</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>19093</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>prev pic</name>
        <script>on mouseUpglobal namesDB,currentDBLine,howManyPicsset the itemDelimiter to tabput (item 1 of line currentDBLine of namesDB) into toBeClosedsubtract 1 from currentDBLineif currentDBLine < 1 then put howManyPics into currentDBLinedisplayPic (item 1 of line currentDBLine of namesDB)close window toBeClosedset the itemDelimiter to commaend mouseUp</script>
    </part>
    <part>
        <id>3</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>287</left>
            <top>382</top>
            <right>316</right>
            <bottom>404</bottom>
        </rect>
        <style>opaque</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>31084</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>next pic</name>
        <script>on mouseUpglobal namesDB,currentDBLine,howManyPicsset the itemDelimiter to tabput (item 1 of line currentDBLine of namesDB) into toBeClosedadd 1 to currentDBLineif currentDBLine > howManyPics then put 1 into currentDBLinedisplayPic (item 1 of line currentDBLine of namesDB)close window toBeClosedset the itemDelimiter to commaend mouseUp</script>
    </part>
    <part>
        <id>4</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>176</left>
            <top>382</top>
            <right>204</right>
            <bottom>404</bottom>
        </rect>
        <style>opaque</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>13637</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>play bck</name>
        <script>on mouseUpglobal isPlaying,playModeset the enabled of menu "File" to falseset the enabled of menu "Sort" to falseset the enabled of button "next pic" to falseset the enabled of button "prev pic" to falseset the enabled of button "play fwd" to falseset the enabled of button "stop" to trueset the enabled of menuItem "Next" of menu "View" to falseset the enabled of menuItem "Previous" of menu "View" to falseset the enabled of menuItem "Play Forward" of menu "View" to falseset the enabled of menuItem "Play Backward     " of menu "View" to falseset the enabled of menuItem "Stop" of menu "View" to trueset the enabled of menuItem 8 of menu "View" to falseset the enabled of menuItem "Find First…" of menu "View" to falseset the enabled of menuItem "Find Next" of menu "View" to falseset the enabled of cd button "zoom" to falseset the enabled of me to falseput true into isPlayingput "bck" into playModeend mouseUp</script>
    </part>
    <part>
        <id>5</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>318</left>
            <top>382</top>
            <right>346</right>
            <bottom>404</bottom>
        </rect>
        <style>opaque</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>5123</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>play fwd</name>
        <script>on mouseUpglobal isPlaying,playModeset the enabled of menu "File" to falseset the enabled of menu "Sort" to falseset the enabled of button "next pic" to falseset the enabled of button "prev pic" to falseset the enabled of button "play bck" to falseset the enabled of button "stop" to trueset the enabled of menuItem "Next" of menu "View" to falseset the enabled of menuItem "Previous" of menu "View" to falseset the enabled of menuItem "Play Forward" of menu "View" to falseset the enabled of menuItem "Play Backward     " of menu "View" to falseset the enabled of menuItem "Stop" of menu "View" to trueset the enabled of menuItem 8 of menu "View" to falseset the enabled of menuItem "Find First…" of menu "View" to falseset the enabled of menuItem "Find Next" of menu "View" to falseset the enabled of cd button "zoom" to falseset the enabled of me to falseput true into isPlayingput "fwd" into playModeend mouseUp</script>
    </part>
    <part>
        <id>9</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>213</left>
            <top>362</top>
            <right>304</right>
            <bottom>378</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>picture number</name>
        <script></script>
    </part>
    <part>
        <id>11</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>205</left>
            <top>340</top>
            <right>313</right>
            <bottom>357</bottom>
        </rect>
        <style>popup</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <selectedLines>
            <integer>1</integer>
        </selectedLines>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>display popup</name>
        <script>on mouseUpglobal namesDB,currentDBLineset the itemDelimiter to tabput currentDBLine into oldLineput (item 1 of line currentDBLine of namesDB) into toBeClosedput word 2 of (the selectedLine of me) into currentDBLineif currentDBLine <> oldLine thendisplayPic (item 1 of line currentDBLine of namesDB)close window toBeClosedend ifset the itemDelimiter to commaend mouseUp</script>
    </part>
    <part>
        <id>13</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>6</left>
            <top>340</top>
            <right>169</right>
            <bottom>402</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>info</name>
        <script>on mouseDoubleClickglobal isPlayingif not isPlaying then findFirstend mouseDoubleClick</script>
    </part>
    <part>
        <id>15</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <false /> </enabled>
        <rect>
            <left>245</left>
            <top>382</top>
            <right>274</right>
            <bottom>404</bottom>
        </rect>
        <style>opaque</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>8367</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>stop</name>
        <script>on mouseUpglobal isPlayingset the enabled of menu "File" to trueset the enabled of menu "Sort" to trueset the enabled of button "next pic" to trueset the enabled of button "prev pic" to trueset the enabled of button "play bck" to trueset the enabled of button "play fwd" to trueset the enabled of menuItem "Next" of menu "View" to trueset the enabled of menuItem "Previous" of menu "View" to trueset the enabled of menuItem "Play Forward" of menu "View" to trueset the enabled of menuItem "Play Backward     " of menu "View" to trueset the enabled of menuItem "Stop" of menu "View" to falseset the enabled of menuItem 8 of menu "View" to trueset the enabled of menuItem "Find First…" of menu "View" to trueset the enabled of menuItem "Find Next" of menu "View" to trueset the enabled of cd button "zoom" to truehide cd button "Pause…"set the enabled of me to falseput false into isPlayingend mouseUp</script>
    </part>
    <part>
        <id>20</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>0</left>
            <top>32</top>
            <right>352</right>
            <bottom>230</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <true /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Helvetica</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>infoDB field</name>
        <script></script>
    </part>
    <part>
        <id>23</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>311</left>
            <top>297</top>
            <right>346</right>
            <bottom>330</bottom>
        </rect>
        <style>opaque</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>15555</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>zoom</name>
        <script>on mouseUpglobal currentDBLine,namesDBset the itemDelimiter to tabif the icon of me is 15555 then--zoom inset the scale of window (item 1 of line currentDBLine of namesDB) to 1set the icon of me to "zoom out"set the name of menuItem "Zoom In" of menu "View" to "Zoom Out"elseset the scale of window (item 1 of line currentDBLine of namesDB) to 0set the icon of me to "zoom in"set the name of menuItem "Zoom Out" of menu "View" to "Zoom In"end ifset the itemDelimiter to commaend mouseUp</script>
    </part>
    <part>
        <id>32</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>326</left>
            <top>360</top>
            <right>346</right>
            <bottom>378</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>15272</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>Pause…</name>
        <script>on mouseUpglobal pauseask "Type amount of seconds to pause between pictures during play mode:"  with pauseIf the result is "Cancel" then exit mouseUpput it into theAnswerif theAnswer is not a number or theAnswer <0 thenbeepsend mouseUp to meexit mouseUpelseput theAnswer div 1 into pauseend ifend mouseUp</script>
    </part>
    <part>
        <id>35</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>11</left>
            <top>8</top>
            <right>105</right>
            <bottom>45</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>DB</name>
        <script></script>
    </part>
    <content>
        <layer>card</layer>
        <id>9</id>
        <text>1 of 100</text>
    </content>
    <content>
        <layer>card</layer>
        <id>20</id>
        <text>FLW_089.TIF    Cercis SiliquastrumFLW_090.TIF    Tulipa SharonensisFLW_091.TIF    Cistus CreticusFLW_092.TIF    Symphytum PalaestinumFLW_093.TIF    Adonis CupanianaFLW_094.TIF    Tulip SharonensisFLW_095.TIF    Cistus IncanusFLW_096.TIF    Salvia HierosolymitanaFLW_097.TIF    Iris SisyrinchimFLW_098.TIF    Iris SisyrinchimFLW_099.TIF    Solanum LuteumFLW_100.TIF    Alcea Acaulis</text>
    </content>
    <content>
        <layer>card</layer>
        <id>13</id>
        <text>Cytinus Hypocistis</text>
    </content>
    <content>
        <layer>card</layer>
        <id>35</id>
        <text>FLW_001.TIFCytinus HypocistisFLW_002.TIFCytinus HypocistisFLW_003.TIFHelichrysum SanguineumFLW_004.TIFHelichrysum SanguineumFLW_005.TIFEchium AngustifoliumFLW_006.TIFEchium JudaeumFLW_007.TIFEchium JudaeumFLW_008.TIFCyclamen PersicumFLW_009.TIFColchicum SleveniFLW_010.TIFColchicum SleveniFLW_011.TIFCyclamen PersicumFLW_012.TIFOrnithogelum MontarumFLW_013.TIFPsoralea BituminosaFLW_014.TIFPsoralea BituminosaFLW_015.TIFOrnithogalium NarbonenseFLW_016.TIFAnagyris FoetidaFLW_017.TIFLinum PubescensFLW_018.TIFAnacamplis PyramidalisFLW_019.TIFTrifolium PurpureumFLW_020.TIFTrifolium PurpureumFLW_021.TIFGlaucium FlavumFLW_022.TIFCistus SalvifaliusFLW_023.TIFRanunculus AsiaticusFLW_024.TIFConyza BonariensisFLW_025.TIFPunica GranatumFLW_026.TIFOpuntia Picus IndicaFLW_027.TIFSalvia HierosolymitanaFLW_028.TIFConvolvulus AlthaeoidesFLW_029.TIFPinus PineaFLW_030.TIFLeonilice LeontopetalumFLW_031.TIFLeontice LeontopetalumFLW_032.TIFErodiumFLW_033.TIFBellis SilvestrisFLW_034.TIFVeronica SyriacaFLW_035.TIFArum PalaestinumFLW_036.TIFAlopecurus UtriculatusFLW_037.TIFGagea CommutataFLW_038.TIFGagea CommutataFLW_039.TIFSerapias VomeraceaFLW_040.TIFTragopogon CoelesyniacusFLW_041.TIFHyoscyamus AvreusFLW_042.TIFSalvia HierosolymitanaFLW_043.TIFAcacia LongifoliaFLW_044.TIFIrisFLW_045.TIFHypericum TriavetriFLW_046.TIFCyperus AlopecuroidesFLW_047.TIFPapaver SubpiriformeFLW_048.TIFNatabasis SyriacaFLW_049.TIFQuercus CallipninasFLW_050.TIFSilybum Marianum (dry)FLW_051.TIFMandragora OfficinalisFLW_052.TIFSilybum Marianum (fresh, red)FLW_053.TIFPislacia LentisusFLW_054.TIFSilybum Marianum (white)FLW_055.TIFAyuga ChiaFLW_056.TIFGagea CammutalaFLW_057.TIFIris PalaestinaFLW_058.TIFSilybum MarianumFLW_059.TIFSternbergia ClusianaFLW_060.TIFDaucus CarataFLW_061.TIFAnemone CoronariaFLW_062.TIFAnemone CoronariaFLW_063.TIFAnemone CoronariaFLW_064.TIFAnemone CoronariaFLW_065.TIFAnemone CoronariaFLW_066.TIFRicotia LuneiaFLW_067.TIFAnemone CoronariaFLW_068.TIFCrupina CrupinestrumFLW_069.TIFAnemone CoronariaFLW_070.TIFAnemone CoronariaFLW_071.TIFAnemone CoronariaFLW_072.TIFAnemone CoronariaFLW_073.TIFAnemone CoronariaFLW_074.TIFCistus IncanusFLW_075.TIFChrysanthemum CoronariumFLW_076.TIFChrysanthemum CoronariumFLW_077.TIFChrysanthemum CoronariumFLW_078.TIFChrysanthemum CoronariumFLW_079.TIFChrysanthemum CoronariumFLW_080.TIFIris PalaestinaFLW_081.TIFRoseFLW_082.TIFCistanche TubulasaFLW_083.TIFCistanche TubulasaFLW_084.TIFOrchis GalilaeaFLW_085.TIFCrocus HyemalisFLW_086.TIFRoseFLW_087.TIFInula ViscosaFLW_088.TIFRoseFLW_089.TIFCercis SiliquastrumFLW_090.TIFTulipa SharonensisFLW_091.TIFCistus CreticusFLW_092.TIFSymphytum PalaestinumFLW_093.TIFAdonis CupanianaFLW_094.TIFTulip SharonensisFLW_095.TIFCistus IncanusFLW_096.TIFSalvia HierosolymitanaFLW_097.TIFIris SisyrinchimFLW_098.TIFIris SisyrinchimFLW_099.TIFSolanum LuteumFLW_100.TIFAlcea Acaulis</text>
    </content>
    <content>
        <layer>card</layer>
        <id>11</id>
        <text>FLW_001.TIFFLW_002.TIFFLW_003.TIFFLW_004.TIFFLW_005.TIFFLW_006.TIFFLW_007.TIFFLW_008.TIFFLW_009.TIFFLW_010.TIFFLW_011.TIFFLW_012.TIFFLW_013.TIFFLW_014.TIFFLW_015.TIFFLW_016.TIFFLW_017.TIFFLW_018.TIFFLW_019.TIFFLW_020.TIFFLW_021.TIFFLW_022.TIFFLW_023.TIFFLW_024.TIFFLW_025.TIFFLW_026.TIFFLW_027.TIFFLW_028.TIFFLW_029.TIFFLW_030.TIFFLW_031.TIFFLW_032.TIFFLW_033.TIFFLW_034.TIFFLW_035.TIFFLW_036.TIFFLW_037.TIFFLW_038.TIFFLW_039.TIFFLW_040.TIFFLW_041.TIFFLW_042.TIFFLW_043.TIFFLW_044.TIFFLW_045.TIFFLW_046.TIFFLW_047.TIFFLW_048.TIFFLW_049.TIFFLW_050.TIFFLW_051.TIFFLW_052.TIFFLW_053.TIFFLW_054.TIFFLW_055.TIFFLW_056.TIFFLW_057.TIFFLW_058.TIFFLW_059.TIFFLW_060.TIFFLW_061.TIFFLW_062.TIFFLW_063.TIFFLW_064.TIFFLW_065.TIFFLW_066.TIFFLW_067.TIFFLW_068.TIFFLW_069.TIFFLW_070.TIFFLW_071.TIFFLW_072.TIFFLW_073.TIFFLW_074.TIFFLW_075.TIFFLW_076.TIFFLW_077.TIFFLW_078.TIFFLW_079.TIFFLW_080.TIFFLW_081.TIFFLW_082.TIFFLW_083.TIFFLW_084.TIFFLW_085.TIFFLW_086.TIFFLW_087.TIFFLW_088.TIFFLW_089.TIFFLW_090.TIFFLW_091.TIFFLW_092.TIFFLW_093.TIFFLW_094.TIFFLW_095.TIFFLW_096.TIFFLW_097.TIFFLW_098.TIFFLW_099.TIFFLW_100.TIF</text>
    </content>
    <name></name>
    <script>on openCardglobal namesDB,currentDBLine,isPlaying,pause,wasPortraitsend "mouseUp" to cd button "stop" -- in case it quit when playingSend colorMe to this cardput 0 into pauseput 1 into currentDBLineset the itemDelimiter to tabput item 1 of line 1 of namesDB into picNameput false into wasPortrait  -- this won't work if first pic is portrait. Fix it!displayPic picNameput false into isPlayingend openCardon moveWindowglobal currentDBLine,namesDBset the itemDelimiter to tabput (item 1 of line currentDBLine of namesDB) into picNameif the pictureWidth of window picName > pictureHeight of window picName thenset the rect of window picName to "8,54,344,285"elseset the rect of window picName to "63,7,292,327"end ifset the itemDelimiter to commaend moveWindowon displayPic picNameglobal currentDBLine,namesDB,howManyPics,secondsPaused,lastPicName,wasPortraitput 0 into secondsPausedpicture picName,resource,rect,falseif the pictureWidth of window picName > pictureHeight of window picName thenset the rect of window picName to "8,54,344,285"if wasPortrait then hide window lastPicName -- so you don't see both picturesput false into wasPortraitelseset the rect of window picName to "63,7,292,327"if not wasPortrait then hide window lastPicName  -- so you don't see both picturesput true into wasPortraitend ifset the dithering of window picName to trueshow window picNameput picName into lastPicName -- remember this picture nameselect line currentDBLine of cd button "display popup"put currentDBLine && "of" && howManyPics into cd field "picture number"set the itemDelimiter to tabput (item 2 of line currentDBLine of namesDB) into cd field "info"if the icon of cd button "zoom" is 17802 thenset the icon of cd button "zoom" to "zoom in"set the name of menuItem 8 of menu "View" to "Zoom In"end ifset the itemDelimiter to commaend displayPicon mouseDownInPictureglobal currentDBLine,namesDB,isPlayingif not isPlaying thenwait 20 ticks -- simulate doubleClickif mouseClick() then openOriginalelse-- scroll the picture if mouseStillDownset the cursor to plusset the itemDelimiter to tabput (item 1 of line currentDBLine of namesDB) into thePicset the itemDelimiter to commaput the scroll of window thePic into theScrollrepeat while the mouse is downput item 1 of theScroll - mouseH() + clickH() into xput item 2 of theScroll - mouseV() + clickV() into yset the scroll of window thePic to "x,y"end repeatend ifend ifend mouseDownInPictureon openOriginalglobal namesDB,currentDBLine,hiResPath,lowResPathanswer file "Choose an application to open original picture:" of type "APPL"If it is not empty thenput it into theAppanswer "This disk contains high and low resolution pictures. Which one do you want to open?"¬with "Cancel","Low Res","High Res"If it is "Cancel" then exit openOriginalset the itemDelimiter to tabif it is "Low Res" then put lowResPath&(item 1 of line currentDBLine of namesDB)&";1" into theFileelse put hiResPath&(item 1 of line currentDBLine of namesDB)&";1" into theFileset the itemDelimiter to commaopen  theFile with theAppend ifend openOriginalon doMenu theItemif theItem is "About HyperCard..." then showCreditselse if theItem is "Next" then send mouseUp to button "next pic"else if theItem is "Previous" then send mouseUp to button "prev pic"else if theItem is "Play Forward" then send mouseUp to button "play fwd"else if theItem is "Play Backward     " then send mouseUp to button "play bck"else if theItem is "Pause…" then send mouseUp to button "Pause…"else if theItem is "Stop" then send mouseUp to button "stop"else if theItem is "Zoom In" then send mouseUp to button "zoom"else if theItem is "Zoom Out" then send mouseUp to button "zoom"else if theItem is "Find First…" then findFirstelse if theItem is "Find Next" then findAgainelse if theItem is "Quit" then  doMenu("Quit HyperCard")else pass doMenuend doMenuon findFirstglobal namesDB,currentDBLine,theStringask "Find first occurrence of:"&return&return &"(If found, use ⌘G to Find Next)"&return with theStringIf the result is "Cancel" then exit findFirstput it into theStringput findString(theString,1) into theFoundLineif theFoundLine is empty thenbeepelseif theFoundLine <> currentDBLine thenset the itemDelimiter to tabput (item 1 of line currentDBLine of namesDB) into toBeClosedput theFoundLine into currentDBLinedisplayPic (item 1 of line currentDBLine of namesDB)close window toBeClosedend iffind string theString in cd field "info"if the foundChunk is empty then-- it was found in the file name only, so flash it for feedbackrepeat 2 timeshide cd button "display popup"wait 10 ticksshow cd button "display popup"wait 10 ticksend repeatend ifend ifend findFirstfunction findString theString,fromWhatLineglobal namesDB,howManyPicsput (line fromWhatLine to howManyPics of namesDB) into cd field "infoDB field"find string theString in cd field "infoDB field"return word 2 of the foundLineend findStringon findAgainglobal howManyPics,namesDB,currentDBLine,theStringif (currentDBLine = howManyPics) thenbeepelseput findString(theString,currentDBLine+1) into theFoundLineif theFoundLine is empty thenbeepelseset the itemDelimiter to tabput (item 1 of line currentDBLine of namesDB) into toBeClosedput (theFoundLine+currentDBLine) into currentDBLinedisplayPic (item 1 of line currentDBLine of namesDB)close window toBeClosedfind string theString in cd field "info"if the foundChunk is empty then-- it was found in the file name only, so flash it for feedbackrepeat 2 timeshide cd button "display popup"wait 10 ticksshow cd button "display popup"wait 10 ticksend repeatend ifend ifend ifend findAgainon idleglobal isPlaying,playMode,pause,secondsPausedwait until not the suspendedif isPlaying thenif secondsPaused >= pause then -- end of pause, show next pictureif playMode = "fwd" then send mouseUp to cd button "next pic"else send mouseUp to cd button "prev pic"elsewaitASecondadd 1 to secondsPausedend ifend ifend idleon arrowKey whatKeyif whatKey is "left" then send mouseUp to cd button "prev pic"else if whatKey is "right" then send mouseUp to cd button "next pic"end arrowKeyon waitASecond -- pauses one second with animated pause iconshow cd button "Pause…"wait 30 tickshide cd button "Pause…"wait 30 ticksend waitASecondon sortByNameglobal currentDBLine,namesDB,howManyPicsif the checkmark of menuItem "by File Name" of menu "Sort" then exit sortByNameset the checkmark of menuItem "by File Name" of menu "Sort" to trueset the checkmark of menuItem "by Annotation" of menu "Sort" to falseset the itemDelimiter to tabput (item 1 of line currentDBLine of namesDB) into toBeClosedsort lines of namesDB by item 1 of eachlock screenrepeat with x = 1 to howManyPicsset the cursor to busyput (item 1 of line x of namesDB) into line x of cd button "display popup"end repeatselect line 1 of cd button "display popup"put 1 into currentDBLineput (item 1 of line 1 of namesDB) into thePicif thePic <> toBeClosed thendisplayPic thePicclose window toBeClosedend ifset the itemDelimiter to commaunlock screenend sortByNameon sortByAnnotationglobal currentDBLine,namesDB,howManyPicsif the checkmark of menuItem "by Annotation" of menu "Sort" then exit sortByAnnotationset the checkmark of menuItem "by File Name" of menu "Sort" to falseset the checkmark of menuItem "by Annotation" of menu "Sort" to trueset the itemDelimiter to tabput (item 1 of line currentDBLine of namesDB) into toBeClosedsort lines of namesDB by item 2 of eachlock screenrepeat with x = 1 to howManyPicsset the cursor to busyput (item 1 of line x of namesDB) into line x of cd button "display popup"end repeatselect line 1 of cd button "display popup"put 1 into currentDBLineput (item 1 of line 1 of namesDB) into thePicif thePic <> toBeClosed thendisplayPic thePicclose window toBeClosedend ifset the itemDelimiter to commaunlock screenend sortByAnnotation</script>
</card>